home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: WPS_PM / WPS_PM.zip / sccsgb01.zip / Install (Register) sccSong.Cmd next >
OS/2 REXX Batch file  |  1998-01-27  |  932b  |  24 lines
  1. /*  REXX - sccSong install script                        */
  2. /*  Installs sccSong's DLL & HELP File               */
  3.  
  4. '@echo off'
  5. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs';
  6. Call SysLoadFuncs;           
  7.     Parse source . . __rexx_name;
  8.     __rexx_dir = Filespec('D',__rexx_name)||Filespec('P',__rexx_name)
  9.  
  10.     system_dll=FileSpec('Drive',Value('SYSTEM_INI',,'OS2ENVIRONMENT'))||'\OS2\DLL';
  11.     system_help=FileSpec('Drive',Value('SYSTEM_INI',,'OS2ENVIRONMENT'))||'\OS2\HELP';
  12.  
  13.     Address CMD '@COPY '__rexx_dir'sccSong.DLL 'system_dll; /* Copy new DLL to system DLL dir */
  14.     Address CMD '@COPY '__rexx_dir'sccSong.HLP 'system_help; 
  15.  
  16.     rc=SysRegisterObjectClass('sccSong',system_dll||'\sccSong.DLL');
  17.  
  18.     If rc <> 1                 /* If sccSong class did not register OK */
  19.             Then Do;
  20.                   Say  "sccSong: could not register sccSong class, rc="rc".";
  21.                   Exit;
  22.               End;    
  23. Exit;
  24.